home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / falcon / programm.ing / falclib2.lzh / ROUTS / SETVIDEO.S < prev    next >
Text File  |  1994-08-12  |  2KB  |  92 lines
  1. *
  2. * SETVIDEO.S
  3. *
  4. *    @setvideo
  5. *     Save and set resolution.
  6. * In     d7.w=mode
  7. *  modeequates: vertflag, stmodes, overscan, pal, vga, col80, bps1-16
  8. * ex.     move #pal+bps16,d7
  9. *     (xbios)
  10. *
  11. *    @restorevideo
  12. *     Restores the saved resolution.
  13. *     (xbios)
  14. *
  15. *    @setvadr
  16. *     Sets the physical and logical screenadress.
  17. * In     d0.l=screenadr.
  18. *     (xbios)
  19. *
  20. *    @savevadr
  21. *     Saves the current screenadr.
  22. *     (xbios)
  23. *
  24. *    @restorevadr
  25. *     Restores the saved screenadr.
  26. *     (xbios)
  27. *
  28.  
  29.  
  30. ; SetVideo() equates.
  31.  
  32. vertflag    EQU $0100    ; double-line on VGA, interlace on ST/TV ;
  33. stmodes        EQU $0080    ; ST compatible (uses the ff8240 colour registers);
  34. overscan    EQU $0040    ; Multiply X&Y rez by 1.2, ignored on VGA ;
  35. pal        EQU $0020    ; PAL if set, else NTSC ;
  36. vga        EQU $0010    ; VGA if set, else TV mode ;
  37. col80        EQU $0008    ; 80 column if set, else 40 column ;
  38. bps16        EQU $0004    ; True colour mode
  39. bps8        EQU $0003    ; 8 bitplanes ... etc.
  40. bps4        EQU $0002
  41. bps2        EQU $0001
  42. bps1        EQU $0000
  43.  
  44. @setvideo    MOVE    #37,-(SP)
  45.         TRAP    #14
  46.         ADDQ.L    #2,SP
  47.  
  48.         MOVE.W    #-1,-(SP)
  49.         MOVE.W    #$58,-(SP)
  50.         TRAP    #14
  51.         ADDQ.L    #4,SP
  52.         move    d0,save4856
  53.  
  54.         MOVE.W    d7,-(SP)
  55.         MOVE.W    #$58,-(SP)
  56.         TRAP    #14
  57.         ADDQ.L    #4,SP
  58.         rts
  59.         
  60. @restorevideo    MOVE.W    save4856,-(SP)
  61.         MOVE.W    #$58,-(SP)
  62.         TRAP    #14
  63.         ADDQ.L    #4,SP
  64.         rts
  65.         
  66. @savevadr    move    #2,-(sp)
  67.         trap    #14
  68.         addq.l    #2,sp
  69.         move.l    d0,scradr7112
  70.         rts
  71.         
  72. @restorevadr    move    #-1,-(sp)
  73.         move.l    scradr7112,-(sp)
  74.         move.l    scradr7112,-(sp)
  75.         move    #5,-(sp)
  76.         trap    #14
  77.         lea    12(sp),sp        
  78.         rts
  79.         
  80. @setvadr    move    #-1,-(sp)
  81.         move.l    d0,-(sp)
  82.         move.l    d0,-(sp)
  83.         move    #5,-(sp)
  84.         trap    #14
  85.         lea    12(sp),sp        
  86.         rts
  87.  
  88.  
  89.         
  90. save4856    ds.w    1
  91. scradr7112    ds.l    1
  92.